home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / p063b9s.zip / UNIT / NEWEXP.PAS < prev    next >
Pascal/Delphi Source File  |  1996-04-20  |  38KB  |  1,026 lines
  1. UNIT NewExp;
  2. {╔══════════════════════════════════════════════════════════════════════════╗}
  3. {║ Export                                        Last changed: 20.04.96  SA ║}
  4. {║                                                                          ║}
  5. {║                         (C) Copyright 1989-95 by                         ║}
  6. {║       Dan Wulff, Jens Sandalgaard, Steen Christensen & S¢ren Ager        ║}
  7. {║                                                                          ║}
  8. {║ This source can be distributed freely, as long as it is done in a        ║}
  9. {║ lawfull and friendly manner.                                             ║}
  10. {╚══════════════════════════════════════════════════════════════════════════╝}
  11.  
  12. INTERFACE
  13.  
  14. USES Use32;
  15.  
  16. PROCEDURE ExportConfig;
  17.  
  18. IMPLEMENTATION
  19.  
  20. USES Dos, OpRoot, OpDate, OpString, NetFile, Util, OproUtil, logfile,
  21.      StrUtil, Resource, Globals, poptypes, OpWindow;
  22.  
  23.   PROCEDURE ExportConfig;
  24.   VAR
  25.     MainStrDict, LocalStrDict : StringDictPtr;
  26.     OutFile                   : TBufTextFile;
  27.     W                         : WindowPtr;
  28.  
  29.     PROCEDURE WriteExport(tekst: s30);
  30.     BEGIN
  31.       W^.WFastText('Exporting '+cpad(Tekst,35),2,2);
  32.     END;
  33.  
  34.     FUNCTION ResStr(SD: StringDict; Nr: LongInt; PadSize: Byte): String;
  35.     VAR
  36.       S: String;
  37.     BEGIN
  38.       IF NOT SD.GetString(Nr, S) THEN S:='('+Long2Str(Nr)+')?';
  39.       ResStr:=Pad(S+' ', PadSize);
  40.     END;
  41.  
  42.     PROCEDURE ExpItem(i:WORD; CONST s:STRING);
  43.     BEGIN
  44.       OutFile.Writeln('  '+ResStr(LocalStrDict^, i, 25)+s);
  45.     END;
  46.  
  47.     PROCEDURE OpenExportFile;
  48.     VAR
  49.       FName : PathStr;
  50.     BEGIN
  51.       FName:=StartPath+PoPCfgExportFileName;
  52.       OutFile.Init(FName,SCreate,Max64K(MaxAvail));
  53.       WITH OutFile DO
  54.       BEGIN
  55.         WriteLn(';');
  56.         WriteLn('; Configuration exported on '+DateToDateString('dd.mm.yy', Today)+
  57.           TimeToTimeString(' hh:mm',CurrentTime));
  58.         WriteLn(';');
  59.       END;
  60.     END;
  61.  
  62.     Procedure ExportBBSSection;
  63.     VAR
  64.       i : Byte;
  65.     Begin
  66.       WriteExport('BBs Section');
  67.       New(LocalStrDict,init);
  68.       ResLib.GetEntry('TOK011', LocalStrDict^);
  69.       WITH OutFile DO
  70.       BEGIN
  71.         WriteLn(ResStr(MainStrDict^, 11, 0)+ResStr(MainStrDict^, 2, 0));
  72.         With Cfg.BBs do
  73.         Begin
  74.           ExpItem(1,ResStr(MainStrDict^, 500+Byte(BBsType),15));
  75.           ExpItem(2,path);
  76.           ExpItem(3,Userfile);
  77.           ExpItem(4,Long2Str(Minbaud));
  78.           ExpItem(5,MinBaudFile);
  79.           ExpItem(6,Long2Str(UserErrorLevel));
  80.           for I:=1 to 5 do
  81.             ExpItem(7,Long2Str(i)+' '+multi[i].key + '@' + cfg.bbs.multi[i].batname);
  82.         end;
  83.         WriteLn(ResStr(MainStrDict^, 3, 0)+ResStr(MainStrDict^, 11, 0)+ResStr(MainStrDict^, 2, 0));
  84.         WriteLn(';');
  85.       END;
  86.       Dispose(LocalStrDict, Done);
  87.     end;
  88.  
  89.     PROCEDURE ExportModem;
  90.     VAR
  91.       i : Byte;
  92.     Begin
  93.       WriteExport('Modem Section');
  94.       New(LocalStrDict,init);
  95.       ResLib.GetEntry('TOK012', LocalStrDict^);
  96.       WITH OutFile DO
  97.       BEGIN
  98.         WriteLn(ResStr(MainStrDict^, 12, 0)+ResStr(MainStrDict^, 2, 0));
  99.         With Cfg.Modem do
  100.         Begin
  101.           ExpItem(1,Long2Str(commPort));
  102.           ExpItem(2,Long2Str(BaudRate));
  103.           ExpItem(3,PreInit);
  104.           ExpItem(4,Init);
  105.           ExpItem(5,NoAnswer);
  106.           ExpItem(6,Dial);
  107.           ExpItem(7,Busy);
  108.           ExpItem(8,HangUp);
  109.           ExpItem(9,Answer);
  110.           ExpItem(10,TimeToTimeString('hh:mm.ss',ReInit));
  111.           ExpItem(11,LockedBaud);
  112.           for i:=1 to 5 do
  113.             ExpItem(12,Long2Str(i)+' '+ExitStr[i].ConStr+'@'+
  114.                     Long2Str(Cfg.Modem.ExitStr[i].ErrLvl));
  115.           For i:=0 to 7 do
  116.             ExpItem(13,Long2Str(i)+' '+Long2Str(ModemType[i].Bit)+'@'+ModemType[i].Dial+
  117.               '@'+ResStr(MainStrDict^, 111-byte(ModemType[i].DialOut),3)+'@'+Long2Str(ModemType[i].Baud));
  118.           ExpItem(14,TimeToTimeString('hh:mm.ss',WaitTime));
  119.           ExpItem(15,ResStr(MainStrDict^, 111-Byte(InternalFax),3));
  120.           ExpItem(16,LinkStat);
  121.           ExpItem(17,Long2Str(LogLines));
  122.           for i:=1 to 5 do
  123.             ExpItem(18,Long2Str(i)+' '+Cfg.Statistics.MdmProtocol[i]);
  124.         end;
  125.         WriteLn(ResStr(MainStrDict^, 3, 0)+ResStr(MainStrDict^, 12, 0)+ResStr(MainStrDict^, 2, 0));
  126.         WriteLn(';');
  127.       END;
  128.       Dispose(LocalStrDict, Done);
  129.     end;
  130.  
  131.     PROCEDURE ExportScreen;
  132.     Begin
  133.       WriteExport('Screen Section');
  134.       New(LocalStrDict,init);
  135.       ResLib.GetEntry('TOK013', LocalStrDict^);
  136.       WITH OutFile DO
  137.       BEGIN
  138.         WriteLn(ResStr(MainStrDict^, 13, 0)+ResStr(MainStrDict^, 2, 0));
  139.         With cfg.screen do
  140.         Begin
  141.           ExpItem(1,TimeToTimeString('hh:mm.ss',BlankTime));
  142.           ExpItem(2,ResStr(MainStrDict^, 111-Byte(chkSnow),3));
  143.           ExpItem(3,ResStr(MainStrDict^, 111-Byte(KeepOffScrMode),3));
  144.           ExpItem(4,ResStr(MainStrDict^, 111-Byte(ScrMode),3));
  145.           ExpItem(5,ResStr(MainStrDict^, 111-Byte(HardWareBlank),3));
  146.           ExpItem(6,ResStr(MainStrDict^, 111-Byte(ExplodingWin),3));
  147.         end;
  148.         WriteLn(ResStr(MainStrDict^, 3, 0)+ResStr(MainStrDict^, 13, 0)+ResStr(MainStrDict^, 2, 0));
  149.         WriteLn(';');
  150.       END;
  151.       Dispose(LocalStrDict, Done);
  152.     end;
  153.  
  154.     Procedure ExportListFile;
  155.     VAR
  156.       i : Byte;
  157.     Begin
  158.       WriteExport('ListFile Section');
  159.       New(LocalStrDict,init);
  160.       ResLib.GetEntry('TOK014', LocalStrDict^);
  161.       WITH OutFile DO
  162.       BEGIN
  163.         WriteLn(ResStr(MainStrDict^, 14, 0)+ResStr(MainStrDict^, 2, 0));
  164.         With Cfg.ListFiles do
  165.         Begin
  166.           ExpItem(1,FileList);
  167.           ExpItem(2,NewsList);
  168.           ExpItem(3,Header);
  169.           ExpItem(4,Footer);
  170.           ExpItem(5,TopFile);
  171.           ExpItem(6,StatFile);
  172.           ExpItem(7,ResStr(MainStrDict^, 111-Byte(Adopt),3));
  173.           ExpItem(8,AdoptComment);
  174.           ExpItem(9,ResStr(MainStrDict^, 111-Byte(DupeCheck),3));
  175.           ExpItem(10,ResStr(MainStrDict^, 111-Byte(Stat),3));
  176.           ExpItem(11,ResStr(MainStrDict^, 111-Byte(IncludeTop),3));
  177.           ExpItem(12,Long2Str(Top));
  178.           ExpItem(13,ResStr(MainStrDict^, 111-Byte(Dkdate),3));
  179.           ExpItem(14,Long2Str(NewsDays));
  180.           ExpItem(15,Long2Str(Threshold));
  181.           ExpItem(16,ResStr(MainStrDict^, 111-Byte(RemMissing),3));
  182.           ExpItem(17,ResStr(MainStrDict^, 111-Byte(Okportal),3));
  183.           ExpItem(18,ResStr(MainStrDict^, 111-Byte(ZapZero),3));
  184.           ExpItem(19,ResStr(MainStrDict^, 111-Byte(Touch),3));
  185.           for I:=1 to 10 do
  186.             ExpItem(20,longintform('## ',i)+CrapFiles[i]);
  187.           for I:=1 to 10 do
  188.             ExpItem(21,longintform('## ',i)+ExcludeFiles[i]);
  189.           for I:=1 to 10 do
  190.             ExpItem(22,longintform('## ',i)+NoDupeCheck[i]);
  191.           for I:=1 to 10 do
  192.             ExpItem(23,longintform('## ',i)+NonAdoptFiles[i]);
  193.           for I:=1 to 10 do
  194.             ExpItem(24,longintform('## ',i)+NonAdoptAreas[i]);
  195.           for I:=1 to 11 do
  196.             ExpItem(25,longintform('## ',i)+PrivateAreas[i]);
  197.           ExpItem(26,DoBefore);
  198.           ExpItem(27,Doafter);
  199.           ExpItem(28,DoPack);
  200.           ExpItem(29,DupeReport);
  201.           for I:=0 to 3 do
  202.             ExpItem(30,Long2Str(i)+' '+TxtFreq[i]);
  203.           ExpItem(31,OkBiModemPath);
  204.         end;
  205.         WriteLn(ResStr(MainStrDict^, 3, 0)+ResStr(MainStrDict^, 14, 0)+ResStr(MainStrDict^, 2, 0));
  206.         WriteLn(';');
  207.       END;
  208.       Dispose(LocalStrDict, Done);
  209.     end;
  210.  
  211.     PROCEDURE ExportTick;
  212.     Begin
  213.       WriteExport('Tick Section');
  214.       New(LocalStrDict,init);
  215.       ResLib.GetEntry('TOK018', LocalStrDict^);
  216.       WITH OutFile DO
  217.       BEGIN
  218.         WriteLn(ResStr(MainStrDict^, 18, 0)+ResStr(MainStrDict^, 2, 0));
  219.         With Cfg.Tick do
  220.         Begin
  221.           ExpItem(1,DupeDir);
  222.           ExpItem(2,HoldDir);
  223.           ExpItem(3,BeforeMoving);
  224.           ExpItem(4,ResStr(MainStrDict^, 111-Byte(RequestMissing),3));
  225.         end;
  226.         WriteLn(ResStr(MainStrDict^, 3, 0)+ResStr(MainStrDict^, 18, 0)+ResStr(MainStrDict^, 2, 0));
  227.         WriteLn(';');
  228.       END;
  229.       Dispose(LocalStrDict, Done);
  230.     end;
  231.  
  232.     PROCEDURE ExportBimail;
  233.     VAR
  234.       I : Byte;
  235.     Begin
  236.       WriteExport('Bimodem Section');
  237.       New(LocalStrDict,init);
  238.       ResLib.GetEntry('TOK019', LocalStrDict^);
  239.       WITH OutFile DO
  240.       BEGIN
  241.         WriteLn(ResStr(MainStrDict^, 19, 0)+ResStr(MainStrDict^, 2, 0));
  242.         With cfg.Bimail do
  243.         Begin
  244.           For I:=1 to 5 do
  245.             ExpItem(1,Long2Str(i)+' '+BiOverRide[i]);
  246.           ExpItem(2,ResStr(MainStrDict^, 111-Byte(NoSendOverRide),3));
  247.           ExpItem(3,Long2Str(MaxBaud));
  248.           ExpItem(4,BiModemPath);
  249.         End;
  250.         WriteLn(ResStr(MainStrDict^, 3, 0)+ResStr(MainStrDict^, 19, 0)+ResStr(MainStrDict^, 2, 0));
  251.         WriteLn(';');
  252.       END;
  253.       Dispose(LocalStrDict, Done);
  254.     end;
  255.  
  256.     PROCEDURE ExportRequest;
  257.     Begin
  258.       WriteExport('Request Section');
  259.       New(LocalStrDict,init);
  260.       ResLib.GetEntry('TOK015', LocalStrDict^);
  261.       WITH OutFile DO
  262.       BEGIN
  263.         WriteLn(ResStr(MainStrDict^, 15, 0)+ResStr(MainStrDict^, 2, 0));
  264.         With Cfg.Request do
  265.         Begin
  266.           ExpItem(1,Long2Str(Limit[NsUnKnown,RlPrDay].MaxFiles));
  267.           ExpItem(2,Long2Str(Limit[NsUnKnown,RlPrCall].MaxFiles));
  268.           ExpItem(3,TimetoTimeString('hh:mm:ss',Limit[NsUnKnown,RlPrDay].MaxTime));
  269.           ExpItem(4,TimeToTimeString('hh:mm:ss',Limit[NsUnKnown,RlPrCall].MaxTime));
  270.           ExpItem(5,Long2Str(Limit[NsUnKnown,RlPrDay].MaxBytes));
  271.           ExpItem(6,Long2Str(Limit[NsUnKnown,RlPrCall].Maxbytes));
  272.           ExpItem(7,Long2Str(Limit[NsKnown,RlPrDay].MaxFiles));
  273.           ExpItem(8,Long2Str(Limit[NsKnown,RlPrCall].MaxFiles));
  274.           ExpItem(9,TimetoTimeString('hh:mm:ss',Limit[NsKnown,RlPrDay].MaxTime));
  275.           ExpItem(10,TimeToTimeString('hh:mm:ss',Limit[NsKnown,RlPrCall].MaxTime));
  276.           ExpItem(11,Long2Str(Limit[NsKnown,RlPrDay].MaxBytes));
  277.           ExpItem(12,Long2Str(Limit[NsKnown,RlPrCall].Maxbytes));
  278.           ExpItem(13,Long2Str(Limit[NsPassword,RlPrDay].MaxFiles));
  279.           ExpItem(14,Long2Str(Limit[NsPassword,RlPrCall].MaxFiles));
  280.           ExpItem(15,TimetoTimeString('hh:mm:ss',Limit[NsPassword,RlPrDay].MaxTime));
  281.           ExpItem(16,TimeToTimeString('hh:mm:ss',Limit[NsPassword,RlPrCall].MaxTime));
  282.           ExpItem(17,Long2Str(Limit[NsPassword,RlPrDay].MaxBytes));
  283.           ExpItem(18,Long2Str(Limit[NsPassword,RlPrCall].Maxbytes));
  284.           ExpItem(19,ResStr(MainStrDict^, 111-Byte(RspAsPkt),3));
  285.           ExpItem(20,ResStr(MainStrDict^, 111-Byte(skipAfterFirst),3));
  286.           ExpItem(21,Long2Str(MinBaud));
  287.           ExpItem(22,Long2Str(Byte(ReqOnUs)));
  288.           ExpItem(23,Long2Str(ReqOnUsCost));
  289.         end;
  290.         WriteLn(ResStr(MainStrDict^,3,0)+ResStr(MainStrDict^,15,0)+ResStr(MainStrDict^,2,0));
  291.         WriteLn(';');
  292.       END;
  293.       Dispose(LocalStrDict, Done);
  294.     end;
  295.  
  296.     PROCEDURE ExportFwdFile;
  297.     Begin
  298.       WriteExport('File Forward Section');
  299.       New(LocalStrDict,init);
  300.       ResLib.GetEntry('TOK017', LocalStrDict^);
  301.       WITH OutFile DO
  302.       BEGIN
  303.         WriteLn(ResStr(MainStrDict^, 17, 0)+ResStr(MainStrDict^, 2, 0));
  304.         With Cfg.FwdFile do
  305.         Begin
  306.           ExpItem(1,PreCmd);
  307.           ExpItem(2,SecureDir);
  308.           ExpItem(3,Long2Str(MsgAttribute));
  309.           ExpItem(4,ResStr(MainStrDict^, 111-Byte(KillSent),3));
  310.           ExpItem(5,ResStr(MainStrDict^, 111-Byte(MsgPrivate),3));
  311.           ExpItem(6,Subject);
  312.         End;
  313.         WriteLn(ResStr(MainStrDict^, 3, 0)+ResStr(MainStrDict^, 17, 0)+ResStr(MainStrDict^, 2, 0));
  314.         WriteLn(';');
  315.       END;
  316.       Dispose(LocalStrDict, Done);
  317.     end;
  318.  
  319.     PROCEDURE ExportMailScanner;
  320.     Begin
  321.       WriteExport('MailScanner Section');
  322.       New(LocalStrDict,init);
  323.       ResLib.GetEntry('TOK016', LocalStrDict^);
  324.       WITH OutFile DO
  325.       BEGIN
  326.         WriteLn(ResStr(MainStrDict^, 16, 0)+ResStr(MainStrDict^, 2, 0));
  327.         With cfg.MailScanner do
  328.         Begin
  329.           ExpItem(1,NetMailDir);
  330.           ExpItem(2,ResStr(MainStrDict^, 111-Byte(secure),3));
  331.           ExpItem(3,BadMsgs);
  332.           ExpItem(4,SaveDupesDir);
  333.           ExpItem(5,Long2Str(MaxDupes));
  334.           ExpItem(6,EchoTossLog);
  335.           ExpItem(7,ResStr(MainStrDict^, 111-Byte(StripCrash),3));
  336.           ExpItem(8,ResStr(MainStrDict^, 111-Byte(SetAkaSent),3));
  337.           ExpItem(9,ResStr(MainStrDict^, 111-Byte(PvtEchoMail),3));
  338.           ExpItem(10,ResStr(MainStrDict^, 111-Byte(SaveFwdMail),3));
  339.           ExpItem(11,RouteFile);
  340.           ExpItem(12,ResStr(MainStrDict^, 111-Byte(ForwardMail),3));
  341.           ExpItem(13,ResStr(MainStrDict^, 111-Byte(KillFwdFiles),3));
  342.           ExpItem(14,ResStr(MainStrDict^, 111-Byte(OldExt),3));
  343.           ExpItem(15,Long2Str(DefaultPacker));
  344.           ExpItem(16,Long2Str(NetMailBoard));
  345.         End;
  346.         WriteLn(ResStr(MainStrDict^, 3, 0)+ResStr(MainStrDict^, 16, 0)+ResStr(MainStrDict^, 2, 0));
  347.         WriteLn(';');
  348.       END;
  349.       Dispose(LocalStrDict, Done);
  350.     end;
  351.  
  352.     PROCEDURE ExportNLCompiler;
  353.     VAR
  354.       I : Byte;
  355.     Begin
  356.       WriteExport('NodeList Compiler Section');
  357.       New(LocalStrDict,init);
  358.       ResLib.GetEntry('TOK020', LocalStrDict^);
  359.       WITH OutFile DO
  360.       BEGIN
  361.         WriteLn(ResStr(MainStrDict^, 20, 0)+ResStr(MainStrDict^, 2, 0));
  362.         With cfg.NlCompiler do
  363.         Begin
  364.           ExpItem(1,CostFileName);
  365.           ExpItem(2,IntPreFix);
  366.           ExpItem(3,OurPreFix);
  367.           ExpItem(4,ResStr(MainStrDict^, 111-Byte(UseFidoUserLst),3));
  368.           For I:=0 to 7 do
  369.             ExpItem(5,Long2Str(i)+' '+MTypeStr[i]);
  370.         end;
  371.         WriteLn(ResStr(MainStrDict^, 3, 0)+ResStr(MainStrDict^, 20, 0)+ResStr(MainStrDict^, 2, 0));
  372.         WriteLn(';');
  373.       END;
  374.       Dispose(LocalStrDict, Done);
  375.     end;
  376.  
  377.     PROCEDURE ExportDumbTerm;
  378.     Begin
  379.       WriteExport('Dumb Terminal Section');
  380.       New(LocalStrDict,init);
  381.       ResLib.GetEntry('TOK021', LocalStrDict^);
  382.       WITH OutFile DO
  383.       BEGIN
  384.         WriteLn(ResStr(MainStrDict^, 21, 0)+ResStr(MainStrDict^, 2, 0));
  385.         With cfg.DumbTerm do
  386.         Begin
  387.           ExpItem(1,ResStr(MainStrDict^, 111-Byte(CrSendsLf),3));
  388.           ExpItem(2,ResStr(MainStrDict^, 111-Byte(DestructiveBS),3));
  389.           ExpItem(3,ModemInit);
  390.         end;
  391.         WriteLn(ResStr(MainStrDict^, 3, 0)+ResStr(MainStrDict^, 21, 0)+ResStr(MainStrDict^, 2, 0));
  392.         WriteLn(';');
  393.       END;
  394.       Dispose(LocalStrDict, Done);
  395.     end;
  396.  
  397.     PROCEDURE ExportExternal;
  398.     VAR
  399.       i : Byte;
  400.     Begin
  401.       WriteExport('External protocol Section');
  402.       New(LocalStrDict,init);
  403.       ResLib.GetEntry('TOK022', LocalStrDict^);
  404.       WITH OutFile DO
  405.       BEGIN
  406.         WriteLn(ResStr(MainStrDict^, 22, 0)+ResStr(MainStrDict^, 2, 0));
  407.         for i:=1 to 5 do
  408.         Begin
  409.           With Cfg.ExtProt[i] do
  410.           Begin
  411.             ExpItem(1,Long2Str(i)+' '+Key);
  412.             ExpItem(2,Long2Str(i)+' '+Name);
  413.             ExpItem(3,Long2Str(i)+' '+ResStr(MainStrDict^, 111-Byte(AskDlName),3));
  414.             ExpItem(4,Long2Str(i)+' '+AutoStart);
  415.             ExpItem(5,Long2Str(i)+' '+SendCmd);
  416.             ExpItem(6,Long2Str(i)+' '+RecvCmd);
  417.           end;
  418.           Writeln('');
  419.         end;
  420.         WriteLn(ResStr(MainStrDict^, 3, 0)+ResStr(MainStrDict^, 22, 0)+ResStr(MainStrDict^, 2, 0));
  421.         WriteLn(';');
  422.       END;
  423.       Dispose(LocalStrDict, Done);
  424.     end;
  425.  
  426.     PROCEDURE ExportAreaMan;
  427.     Begin
  428.       WriteExport('Area Manager Section');
  429.       New(LocalStrDict,init);
  430.       ResLib.GetEntry('TOK023', LocalStrDict^);
  431.       WITH OutFile DO
  432.       BEGIN
  433.         WriteLn(ResStr(MainStrDict^, 23, 0)+ResStr(MainStrDict^, 2, 0));
  434.         With cfg.Areaman do
  435.         Begin
  436.           ExpItem(1,DlCntStart);
  437.           ExpItem(2,DlCntStop);
  438.           ExpItem(3,ResStr(MainStrDict^, 111-Byte(AdoptDefault),3));
  439.           ExpItem(4,ResStr(MainStrDict^, 111-Byte(InsDlCnt),3));
  440.           ExpItem(5,ResStr(MainStrDict^, 111-Byte(AddInbound),3));
  441.           ExpItem(6,Long2Str(FirstArea));
  442.           ExpItem(7,Long2Str(LastArea));
  443.           ExpItem(8,Long2Str(DlCDigits));
  444.           ExpItem(9,ResStr(MainStrDict^, 111-Byte(DlCZeroFill),3));
  445.           ExpItem(10,ViewCmd);
  446.         end;
  447.         WriteLn(ResStr(MainStrDict^, 3, 0)+ResStr(MainStrDict^, 23, 0)+ResStr(MainStrDict^, 2, 0));
  448.         WriteLn(';');
  449.       END;
  450.       Dispose(LocalStrDict, Done);
  451.     end;
  452.  
  453.     PROCEDURE ExportPackers;
  454.     VAR
  455.       I : Byte;
  456.     Begin
  457.       WriteExport('Packer Section');
  458.       New(LocalStrDict,init);
  459.       ResLib.GetEntry('TOK024', LocalStrDict^);
  460.       WITH OutFile DO
  461.       BEGIN
  462.         WriteLn(ResStr(MainStrDict^, 24, 0)+ResStr(MainStrDict^, 2, 0));
  463.         for I:=1 to 7 do
  464.         Begin
  465.           With cfg.packer[i] do
  466.           Begin
  467.             ExpItem(1,Long2Str(i)+' '+AddCmd);
  468.             ExpItem(2,Long2Str(i)+' '+UnpackCmd);
  469.             ExpItem(3,Long2Str(i)+' '+EraseCmd);
  470.             ExpItem(4,Long2Str(i)+' '+TestCmd);
  471.           end;
  472.           Writeln('');
  473.         end;
  474.         WriteLn(ResStr(MainStrDict^, 3, 0)+ResStr(MainStrDict^, 24, 0)+ResStr(MainStrDict^, 2, 0));
  475.         WriteLn(';');
  476.       END;
  477.       Dispose(LocalStrDict, Done);
  478.     end;
  479.  
  480.     PROCEDURE ExportSystemSection;
  481.     VAR
  482.       i,j : Byte;
  483.       c   : char;
  484.  
  485.     BEGIN
  486.       WriteExport('System Section');
  487.       New(LocalStrDict,init);
  488.       ResLib.GetEntry('TOK010', LocalStrDict^);
  489.       WITH OutFile DO
  490.       BEGIN
  491.         WriteLn(ResStr(MainStrDict^, 10, 0)+ResStr(MainStrDict^, 2, 0));
  492.         ExpItem(1,Long2Str(Cfg.version));
  493.         ExpItem(2,Long2Str(Cfg.tasknumber));
  494.         ExpItem(3,Cfg.swapdir);
  495.         ExpItem(4,Cfg.outbound);
  496.         ExpItem(5,Cfg.banner);
  497.         ExpItem(6,Cfg.defaultmacro);
  498.         ExpItem(7,Cfg.Editor);
  499.         ExpItem(8,Cfg.logfilename);
  500.         ExpItem(9,Long2Str(Cfg.loglevel));
  501.         ExpItem(10,ResStr(MainStrDict^, 111-Byte(Cfg.UseYearInLog),3));
  502.         ExpItem(11,cfg.Nodelist);
  503.         ExpItem(12,ResStr(MainStrDict^, 520+Byte(Cfg.Nodelisttyp),15));
  504.         ExpItem(13,Long2Str(Cfg.MainAdrNum));
  505.         FOR i:=1 TO 16 DO
  506.           IF Cfg.Addresses[i].Zone<>0 THEN
  507.             ExpItem(14,Address2Str(Cfg.Addresses[i]));
  508.         ExpItem(15,Long2Str(Cfg.PointNet));
  509.         ExpItem(16,ResStr(MainStrDict^, 111-Byte(cfg.UseFakeAddress),3));
  510.         ExpItem(17,Cfg.Sysop);
  511.         ExpItem(18,Cfg.System);
  512.         ExpItem(19,ResStr(MainStrDict^, 111-Byte(Cfg.SwapOnExec),3));
  513.         ExpItem(20,Cfg.EnterBBSText);
  514.         ExpItem(21,Cfg.DoingMailText);
  515.         ExpItem(22,Cfg.PressESCText);
  516.         ExpItem(23,Long2Str(Cfg.maxringing));
  517.         ExpItem(24,TimeToTimeString('hh:mm',Cfg.ZMHStart)+'-'+
  518.           TimeToTimeString('hh:mm',cfg.ZMHEnd));
  519.         ExpItem(25,TimeToTimeString('hh:mm:ss',cfg.CallTime));
  520.         ExpItem(26,TimeToTimeString('hh:mm:ss',cfg.CallWidth));
  521.         ExpItem(27,ResStr(MainStrDict^, 111-Byte(Cfg.ConnectFastest),3));
  522.         ExpItem(28,TimeToTimeString('hh:mm:ss',cfg.OutReReadDelay));
  523.         ExpItem(29,Cfg.FuncReqPwd);
  524.         ExpItem(30,ResStr(MainStrDict^, 111-Byte(Cfg.UseJanus),3));
  525.         ExpItem(31,ResStr(MainStrDict^, 111-Byte(Cfg.UseEmsi),3));
  526.         ExpItem(32,ResStr(MainStrDict^, 111-Byte(Cfg.FastCalls),3));
  527.         ExpItem(33,ResStr(MainStrDict^, 111-Byte(Cfg.KeepEmptyDirs),3));
  528.         ExpItem(34,ResStr(MainStrDict^, 111-Byte(Cfg.Curmudgeon),3));
  529.         ExpItem(35,ResStr(MainStrDict^, 111-Byte(Cfg.ReReadOnCall),3));
  530.         ExpItem(36,cfg.Inbound[NsUnknown]);
  531.         ExpItem(37,cfg.Inbound[NsKnown]);
  532.         ExpItem(38,cfg.Inbound[NsPassword]);
  533.         WriteNoLn('  '+ResStr(LocalStrDict^, 39, 25));
  534.         if cfg.InBoundToDo[NsUnKnown] and 1 = 1 then WriteNoLn(' '+ResStr(MainStrDict^, 531,8));
  535.         if cfg.InBoundToDo[NsUnKnown] and 2 = 2 then WriteNoLn(' '+ResStr(MainStrDict^, 532,8));
  536.         if cfg.InBoundToDo[NsUnKnown] and 4 = 4 then WriteNoLn(' '+ResStr(MainStrDict^, 533,8));
  537.         Writeln('');
  538.         WriteNoLn('  '+ResStr(LocalStrDict^, 40, 25));
  539.         if cfg.InBoundToDo[NsKnown] and 1 = 1 then WriteNoLn(' '+ResStr(MainStrDict^, 531,8));
  540.         if cfg.InBoundToDo[NsKnown] and 2 = 2 then WriteNoLn(' '+ResStr(MainStrDict^, 532,8));
  541.         if cfg.InBoundToDo[NsKnown] and 4 = 4 then WriteNoLn(' '+ResStr(MainStrDict^, 533,8));
  542.         Writeln('');
  543.         WriteNoLn('  '+ResStr(LocalStrDict^, 41, 25));
  544.         if cfg.InBoundToDo[Nspassword] and 1 = 1 then WriteNoLn(' '+ResStr(MainStrDict^, 531,8));
  545.         if cfg.InBoundToDo[Nspassword] and 2 = 2 then WriteNoLn(' '+ResStr(MainStrDict^, 532,8));
  546.         if cfg.InBoundToDo[Nspassword] and 4 = 4 then WriteNoLn(' '+ResStr(MainStrDict^, 533,8));
  547.         Writeln('');
  548.         c:='C';
  549.         For I:=1 to 2 do
  550.         Begin
  551.           for j:=1 to 10 do
  552.           Begin
  553.             ExpItem(42,c+longintform('## ',j)+Long2Str(cfg.fkey[i,j].ErrorLevel)+'@'+
  554.               cfg.fkey[i,j].Description);
  555.           end;
  556.           c:='A';
  557.         end;
  558.         WriteLn(ResStr(MainStrDict^, 3, 0)+ResStr(MainStrDict^, 10, 0)+ResStr(MainStrDict^, 2, 0));
  559.         WriteLn(';');
  560.       END;
  561.       Dispose(LocalStrDict, Done);
  562.     END;
  563.  
  564.     Procedure ExportCfg;
  565.     Begin
  566.       ExportSystemSection;
  567.       ExportBBSSection;
  568.       ExportModem;
  569.       ExportScreen;
  570.       ExportListFile;
  571.       ExportRequest;
  572.       ExportMailScanner;
  573.       ExportFwdFile;
  574.       ExportTick;
  575.       ExportBimail;
  576.       ExportNlCompiler;
  577.       ExportDumbTerm;
  578.       ExportExternal;
  579.       ExportAreaMan;
  580.       ExportPackers;
  581.     end;
  582.  
  583.     Procedure ExportEvent;
  584.     Var
  585.       Event    : Tevent;
  586.       Datafile : TNetFile;
  587.       i:BYTE;
  588.     Begin
  589.       WriteExport('EventFile');
  590.       New(LocalStrDict,init);
  591.       ResLib.GetEntry('TOK050', LocalStrDict^);
  592.       IF DataFile.Open(StartPath+PoPEventFileName,SizeOf(tEvent),false) THEN
  593.       BEGIN
  594.         WITH OutFile DO
  595.         BEGIN
  596.           WITH EVENT DO
  597.           BEGIN
  598.             WHILE NOT DataFile.EoF DO
  599.             BEGIN
  600.               DataFile.Read(event,nokeep,wait);
  601.               WriteLn(ResStr(MainStrDict^, 50, 0)+ResStr(MainStrDict^, 2, 0));
  602.               WriteNoLn('  '+ResStr(LocalStrDict^, 1, 25));
  603.               if active and 128<>0 then WriteNoLn(' '+ResStr(MainStrDict^, 110,3))
  604.                 else WriteNoLn(' '+ResStr(MainStrDict^, 111,3));
  605.               FOR i:=0 TO 6 DO
  606.                 if active and (1  SHL i)<>0 then WriteNoLn(' '+ResStr(MainStrDict^, 120+i,3));
  607.               writeln('');
  608.               ExpItem(2,TimeToTimeString('hh:mm',Start));
  609.               ExpItem(3,Long2Str(month));
  610.               ExpItem(4,Long2Str(Day));
  611.               ExpItem(5,Long2Str(InitExit));
  612.               ExpItem(6,Long2Str(MailExit));
  613.               ExpItem(7,Long2Str(PollExit));
  614.               ExpItem(8,Long2Str(FilesExit));
  615.  
  616.               WriteNoLn('  '+ResStr(LocalStrDict^, 9, 25));
  617.               FOR i:=0 TO 14 DO
  618.                 if Typ and (1 SHL i)<>0 then WriteNoLn(' '+ResStr(LocalStrDict^, 101+i,15));
  619.               writeln('');
  620.               ExpItem(10,Long2Str(Tries.Bad));
  621.               ExpItem(11,Long2Str(Tries.Busy));
  622.               ExpItem(12,TimeToTimeString('hh:mm:ss',Calltime));
  623.               ExpItem(13,TimeToTimeString('hh:mm:ss',Callwidth));
  624.               ExpItem(14,Description);
  625.               ExpItem(15,Address2Str(connectTo));
  626.               ExpItem(16,Long2Str(SchedNumber));
  627.               ExpItem(17,Long2Str(MaxCost));
  628.               ExpItem(18,Long2Str(MinMail));
  629.               ExpItem(19,Long2Str(SpecDial));
  630.               ExpItem(20,Long2Str(TaskNumber));
  631.               WriteLn(ResStr(MainStrDict^, 3, 0)+ResStr(MainStrDict^, 50, 0)+ResStr(MainStrDict^, 2, 0));
  632.               Writeln('');
  633.             END;
  634.           END;
  635.         END;
  636.         WriteLn(';');
  637.         DataFile.Close;
  638.       END;
  639.       Dispose(LocalStrDict, Done);
  640.     end;
  641.  
  642.     PROCEDURE Exportnodes;
  643.     VAR
  644.       i          : Byte;
  645.       DataFile   : TNetFile;
  646.       NodePost   : TNodeInfo;
  647.     BEGIN
  648.       WriteExport('NodeFile');
  649.       New(LocalStrDict,init);
  650.       ResLib.GetEntry('TOK051', LocalStrDict^);
  651.       IF DataFile.Open(PoPNodesFileName,SizeOf(TNodeInfo),False) THEN
  652.       BEGIN
  653.         WITH NodePost,OutFile DO
  654.         BEGIN
  655.           WHILE NOT DataFile.EoF DO
  656.           BEGIN
  657.             DataFile.Read(Nodepost,nokeep,wait);
  658.             WriteLn(ResStr(MainStrDict^, 51, 0)+ResStr(MainStrDict^, 2, 0));
  659.             ExpItem(1,Address2Str(Address));
  660.             ExpItem(2,PktPassWord);
  661.             ExpItem(3,AreaFixPwd);
  662.             ExpItem(4,SessionPwd);
  663.             ExpItem(5,Long2Str(PackerType));
  664.             ExpItem(6,Long2Str(Level));
  665.             ExpItem(7,Long2Str(Keys));
  666.             ExpItem(8,TimeToTimeString('hh:mm:ss',OpenFrom));
  667.             ExpItem(9,TimeToTimeString('hh:mm:ss',OpenTo));
  668.             ExpItem(10,UseEmsi);
  669.             ExpItem(11,ResStr(MainStrDict^, 111-Byte(SendFwdLetter),3));
  670.             ExpItem(12,Long2Str(PointNet));
  671.             ExpItem(13,CheckConnect);
  672.             ExpItem(14,UseFake);
  673.             ExpItem(15,ResStr(MainStrDict^, 111-Byte(DisallowReq),3));
  674.             ExpItem(16,UseFullDuplex);
  675.             ExpItem(17,Phone);
  676.             ExpItem(18,TickPassWord);
  677.             ExpItem(19,ResStr(MainStrDict^, 111-Byte(PackTick),3));
  678.             ExpItem(20,Flavor);
  679.             ExpItem(21,SpecialDials[1]+'■'+SpecialDials[2]);
  680.             ExpItem(22,ResStr(MainStrDict^, 111-Byte(EmsiSetTime),3));
  681.             ExpItem(23,Long2Str(MinConnectBaud));
  682.             WriteLn(ResStr(MainStrDict^, 3, 0)+ResStr(MainStrDict^, 51, 0)+ResStr(MainStrDict^, 2, 0));
  683.             Writeln('');
  684.           END;
  685.         END;
  686.         DataFile.Close;
  687.       END;
  688.       OutFile.WriteLn(';');
  689.       Dispose(LocalStrDict, Done);
  690.     END;
  691.  
  692.     PROCEDURE ExportTickFile;
  693.     VAR
  694.       DataFile   : TNetFile;
  695.       TickPost   : TTickArea;
  696.     BEGIN
  697.       WriteExport('TickFile');
  698.       New(LocalStrDict,init);
  699.       ResLib.GetEntry('TOK052', LocalStrDict^);
  700.       IF DataFile.Open(PoPTickFileName,SizeOf(TTickArea),False) THEN
  701.       BEGIN
  702.         WITH OutFile DO
  703.         BEGIN
  704.           WHILE NOT DataFile.EoF DO
  705.           BEGIN
  706.             DataFile.Read(Tickpost,nokeep,wait);
  707.             WriteLn(ResStr(MainStrDict^, 52, 0)+ResStr(MainStrDict^, 2, 0));
  708.             WITH TickPost DO
  709.             BEGIN
  710.               ExpItem(1,AreaName);
  711.               ExpItem(2,GroupName);
  712.               ExpItem(3,HumanName);
  713.               ExpItem(4,AreaPath);
  714.               ExpItem(5,ResStr(MainStrDict^, 111-Byte(WriteLetter),3));
  715.               ExpItem(6,AnnouncePath);
  716.               ExpItem(7,ResStr(MainStrDict^, 111-Byte(CanBeRepacked),3));
  717.               ExpItem(8,GetFrom[1]+'@'+GetFrom[2]);
  718.               ExpItem(9,SendTo[1]+'@'+SendTo[2]);
  719.               ExpItem(10,Long2Str(Level));
  720.               ExpItem(11,Long2Str(Keys));
  721.               ExpItem(12,ResStr(MainStrDict^, 111-Byte(CheckCRC),3));
  722.               ExpItem(13,FilesBBs);
  723.               ExpItem(14,Long2Str(AkaToUse));
  724.               ExpItem(15,ResStr(MainStrDict^, 111-Byte(CheckDupe),3));
  725.             END;
  726.             WriteLn(ResStr(MainStrDict^, 3, 0)+ResStr(MainStrDict^, 52, 0)+ResStr(MainStrDict^, 2, 0));
  727.             Writeln('');
  728.           END;
  729.         END;
  730.         DataFile.Close;
  731.       END;
  732.       OutFile.WriteLn(';');
  733.       Dispose(LocalStrDict, Done);
  734.     END;
  735.  
  736.     PROCEDURE ExportFileForward;
  737.     VAR
  738.       DataFile   : TNetFile;
  739.       FwdPost    : TFileFwd;
  740.       dt         : DateTime;
  741.     BEGIN
  742.       WriteExport('File Forward File');
  743.       New(LocalStrDict,init);
  744.       ResLib.GetEntry('TOK053', LocalStrDict^);
  745.       IF DataFile.Open(PoPFileFwdFileName,SizeOf(TFileFwd),False) THEN
  746.       BEGIN
  747.         WITH OutFile DO
  748.         BEGIN
  749.           WHILE NOT DataFile.EoF DO
  750.           BEGIN
  751.             DataFile.Read(Fwdpost,nokeep,wait);
  752.             WriteLn(ResStr(MainStrDict^, 53, 0)+ResStr(MainStrDict^, 2, 0));
  753.             WITH FwdPost DO
  754.             BEGIN
  755.               ExpItem(1,FileName);
  756.               ExpItem(2,WhereToPut);
  757.               ExpItem(3,ResStr(MainStrDict^, 111-Byte(AddTofiles),3));
  758.               ExpItem(4,Long2Str(AddBeforeLine));
  759.               ExpItem(5,Description);
  760.               ExpItem(6,SendTo[1]+'@'+SendTo[2]);
  761.               ExpItem(7,BeforeCmd);
  762.               ExpItem(8,AfterCmd);
  763.               ExpItem(9,ResStr(MainStrDict^, 111-Byte(TouchFile),3));
  764.               ExpItem(10,Address2str(GetFrom));
  765.               UnpackTime(LastForward,dt);
  766.               ExpItem(11,ToChar(dt.Day)+'.'+ToChar(dt.Month)+'.'+ToChar(dt.Year)+' '+
  767.                          ToChar(dt.Hour)+':'+ToChar(dt.Min)+':'+ToChar(dt.Sec));
  768.               ExpItem(12,ResStr(MainStrDict^, 111-Byte(KillDupe),3));
  769.               ExpItem(13,ResStr(MainStrDict^, 111-Byte(CheckDate),3));
  770.               ExpItem(14,Long2Str(Level));
  771.               ExpItem(15,Long2Str(keys));
  772.               ExpItem(16,PortalFixName);
  773.               ExpItem(17,Long2Str(KeepMax));
  774.             END;
  775.             WriteLn(ResStr(MainStrDict^, 3, 0)+ResStr(MainStrDict^, 53, 0)+ResStr(MainStrDict^, 2, 0));
  776.             Writeln('');
  777.           END;
  778.         END;
  779.         DataFile.Close;
  780.       END;
  781.       OutFile.WriteLn(';');
  782.       Dispose(LocalStrDict, Done);
  783.     END;
  784.  
  785.     PROCEDURE ExportNodeListtrans;
  786.     VAR
  787.       DataFile   : TNetFile;
  788.       NltPost    : TNltranslat;
  789.     BEGIN
  790.       WriteExport('NodeList Translation File');
  791.       New(LocalStrDict,init);
  792.       ResLib.GetEntry('TOK054', LocalStrDict^);
  793.       IF DataFile.Open(PoPNLTranslateFileName,SizeOf(TNltranslat),False) THEN
  794.       BEGIN
  795.         WITH NltPost,OutFile DO
  796.         BEGIN
  797.           WHILE NOT DataFile.EoF DO
  798.           BEGIN
  799.             DataFile.Read(Nltpost,nokeep,wait);
  800.             WriteLn(ResStr(MainStrDict^, 54, 0)+ResStr(MainStrDict^, 2, 0));
  801.  
  802.             ExpItem(1,NumFrom);
  803.             ExpItem(2,NumTo);
  804.             WriteLn(ResStr(MainStrDict^, 3, 0)+ResStr(MainStrDict^, 54, 0)+ResStr(MainStrDict^, 2, 0));
  805.             Writeln('');
  806.           END;
  807.         END;
  808.         DataFile.Close;
  809.       END;
  810.       OutFile.WriteLn(';');
  811.       Dispose(LocalStrDict, Done);
  812.     END;
  813.  
  814.     PROCEDURE ExportScheduleFile;
  815.     VAR
  816.       DataFile   : TNetFile;
  817.       ScdPost    : Tschedule;
  818.     BEGIN
  819.       WriteExport('Schedule File');
  820.       New(LocalStrDict,init);
  821.       ResLib.GetEntry('TOK055', LocalStrDict^);
  822.       IF DataFile.Open(PoPScheduleFileName,SizeOf(Tschedule),False) THEN
  823.       BEGIN
  824.         WITH ScdPost,OutFile DO
  825.         BEGIN
  826.           WHILE NOT DataFile.EoF DO
  827.           BEGIN
  828.             DataFile.Read(Scdpost,nokeep,wait);
  829.             WriteLn(ResStr(MainStrDict^, 55, 0)+ResStr(MainStrDict^, 2, 0));
  830.  
  831.             ExpItem(1,Long2Str(Number));
  832.             ExpItem(2,Long2Str(Action));
  833.             ExpItem(3,Adr[1]+'@'+Adr[2]);
  834.             ExpItem(4,Stat);
  835.             ExpItem(5,Long2Str(SubLine));
  836.             WriteLn(ResStr(MainStrDict^, 3, 0)+ResStr(MainStrDict^, 55, 0)+ResStr(MainStrDict^, 2, 0));
  837.             Writeln('');
  838.           END;
  839.         END;
  840.         DataFile.Close;
  841.       END;
  842.       OutFile.WriteLn(';');
  843.       Dispose(LocalStrDict, Done);
  844.     END;
  845.  
  846.     PROCEDURE ExportOkFileFile;
  847.     VAR
  848.       DataFile   : TNetFile;
  849.       fejl       : Word;
  850.       OkPost     : Tokfile;
  851.     BEGIN
  852.       WriteExport('Okfile File');
  853.       New(LocalStrDict,init);
  854.       ResLib.GetEntry('TOK056', LocalStrDict^);
  855.       fejl:=LocalStrDict^.getStatus;
  856.       IF DataFile.Open(PoPOkFileName,SizeOf(TOkfile),False) THEN
  857.       BEGIN
  858.         WITH OKPost,OutFile DO
  859.         BEGIN
  860.           WHILE NOT DataFile.EoF DO
  861.           BEGIN
  862.             DataFile.Read(Okpost,nokeep,wait);
  863.             WriteLn(ResStr(MainStrDict^, 56, 0)+ResStr(MainStrDict^, 2, 0));
  864.  
  865.             ExpItem(1,ResStr(MainStrDict^, 570+Byte(NodeStat),10));
  866.             ExpItem(2,MagicName);
  867.             ExpItem(3,FilePath);
  868.             ExpItem(4,Password);
  869.             ExpItem(5,Long2Str(Level));
  870.             ExpItem(6,Long2Str(keys));
  871.             ExpItem(7,ResStr(MainStrDict^, 550+Byte(FreeArea),10));
  872.             ExpItem(8,Long2Str(Tasknumber));
  873.  
  874.             WriteLn(ResStr(MainStrDict^, 3, 0)+ResStr(MainStrDict^, 56, 0)+ResStr(MainStrDict^, 2, 0));
  875.             Writeln('');
  876.           END;
  877.         END;
  878.         DataFile.Close;
  879.       END;
  880.       OutFile.WriteLn(';');
  881.       Dispose(LocalStrDict,done);
  882.     END;
  883.  
  884.  
  885.     PROCEDURE ExportareaFile;
  886.     VAR
  887.       DataFile   : TNetFile;
  888.       AreaPost   : TMsgArea;
  889.     BEGIN
  890.       WriteExport('Msgarea File');
  891.       New(LocalStrDict,init);
  892.       ResLib.GetEntry('TOK057', LocalStrDict^);
  893.       IF DataFile.Open(PoPMsgAreaFileName,SizeOf(TMsgArea),False) THEN
  894.       BEGIN
  895.         WITH AreaPost,OutFile DO
  896.         BEGIN
  897.           WHILE NOT DataFile.EoF DO
  898.           BEGIN
  899.             DataFile.Read(Areapost,nokeep,wait);
  900.             WriteLn(ResStr(MainStrDict^, 57, 0)+ResStr(MainStrDict^, 2, 0));
  901.  
  902.             ExpItem(1,Directory);
  903.             ExpItem(2,EchoNames[1]+'@'+EchoNames[2]+'@'+EchoNames[3]);
  904.             ExpItem(3,Origin);
  905.             ExpItem(4,SendTo[1]+'@'+Sendto[2]);
  906.             ExpItem(5,SendOnly[1]+'@'+SendOnly[2]);
  907.             ExpItem(6,ScramblePwd);
  908.             ExpItem(7,ResStr(MainStrDict^, 111-Byte(StripSeenBy),3));
  909.             ExpItem(8,ResStr(MainStrDict^, 111-Byte(Pvt2EMail),3));
  910.             ExpItem(9,Long2Str(Level));
  911.             ExpItem(10,Long2Str(keys));
  912.             ExpItem(11,Long2Str(MaxScan));
  913.             ExpItem(12,DateToDateString('dd.mm.yy', ScanDate));
  914.             ExpItem(13,Long2Str(Scanned));
  915.             ExpItem(14,Description);
  916.             ExpItem(15,Long2Str(AreaType));
  917.             ExpItem(16,ResStr(MainStrDict^, 111-Byte(ImportSB),3));
  918.             ExpItem(17,Long2Str(UsedAka));
  919.             ExpItem(18,Long2Str(MsgCount));
  920.             ExpItem(19,Long2Str(DateCount));
  921.             ExpItem(20,Long2Str(MsgKeep));
  922.  
  923.             WriteLn(ResStr(MainStrDict^, 3, 0)+ResStr(MainStrDict^, 57, 0)+ResStr(MainStrDict^, 2, 0));
  924.             Writeln('');
  925.           END;
  926.         END;
  927.         DataFile.Close;
  928.       END;
  929.       OutFile.WriteLn(';');
  930.       Dispose(LocalStrDict, Done);
  931.     END;
  932.  
  933.     PROCEDURE ExportNodeListSegmentFile;
  934.     VAR
  935.       DataFile   : TNetFile;
  936.       NlsPost   : TNodeListSeg;
  937.     BEGIN
  938.       WriteExport('NodeList Segment File');
  939.       New(LocalStrDict,init);
  940.       ResLib.GetEntry('TOK058', LocalStrDict^);
  941.       IF DataFile.Open(PoPNlSegmentFileName,SizeOf(TNodeListSeg),False) THEN
  942.       BEGIN
  943.         WITH NlsPost,OutFile DO
  944.         BEGIN
  945.           WHILE NOT DataFile.EoF DO
  946.           BEGIN
  947.             DataFile.Read(Nlspost,nokeep,wait);
  948.             WriteLn(ResStr(MainStrDict^, 58, 0)+ResStr(MainStrDict^, 2, 0));
  949.  
  950.             ExpItem(1,NodeListName);
  951.             ExpItem(2,DiffFileName);
  952.             ExpItem(3,ResStr(MainStrDict^, 111-Byte(CheckCrc),3));
  953.             ExpItem(4,NewNlPath);
  954.             ExpItem(5,Include[1]+'@'+Include[2]);
  955.             ExpItem(6,Exclude[1]+'@'+exclude[2]);
  956.             ExpItem(7,NewNlDesc);
  957.  
  958.             WriteLn(ResStr(MainStrDict^, 3, 0)+ResStr(MainStrDict^, 58, 0)+ResStr(MainStrDict^, 2, 0));
  959.             Writeln('');
  960.           END;
  961.         END;
  962.         DataFile.Close;
  963.       END;
  964.       OutFile.WriteLn(';');
  965.       Dispose(LocalStrDict, Done);
  966.     END;
  967.     PROCEDURE ExportMultiListSegments;
  968.     VAR
  969.       DataFile   : TNetFile;
  970.       MFSPost    : TFileListSegment;
  971.     BEGIN
  972.       WriteExport('Multi List Segments');
  973.       New(LocalStrDict,init);
  974.       ResLib.GetEntry('TOK059', LocalStrDict^);
  975.       IF DataFile.Open(PoPListSegmentsName,SizeOf(TFileListSegment),False) THEN
  976.       BEGIN
  977.         WITH MFSPost,OutFile DO
  978.         BEGIN
  979.           WHILE NOT DataFile.EoF DO
  980.           BEGIN
  981.             DataFile.Read(MFSpost,nokeep,wait);
  982.             WriteLn(ResStr(MainStrDict^, 59, 0)+ResStr(MainStrDict^, 2, 0));
  983.  
  984.             ExpItem(1,Name);
  985.             ExpItem(2,FileName);
  986.             ExpItem(3,HeaderFile);
  987.             ExpItem(4,IncludeAreas[1]+'@'+IncludeAreas[2]+'@'+IncludeAreas[3]+'@'+IncludeAreas[4]);
  988.             ExpItem(5,DoAfter);
  989.  
  990.             WriteLn(ResStr(MainStrDict^, 3, 0)+ResStr(MainStrDict^, 59, 0)+ResStr(MainStrDict^, 2, 0));
  991.             Writeln('');
  992.           END;
  993.         END;
  994.         DataFile.Close;
  995.       END;
  996.       OutFile.WriteLn(';');
  997.       Dispose(LocalStrDict, Done);
  998.     END;
  999.  
  1000.   BEGIN
  1001.     MyWin(W,20,10,60,14,2,'Exporting',true);
  1002.     New(MainStrDict,init);
  1003.     ResLib.GetEntry('TOK000', MainStrDict^);
  1004.     OpenExportFile;
  1005.     ExportCfg;
  1006.     if cfg.Tasknumber < 2 then
  1007.     Begin
  1008.       ExportEvent;
  1009.       ExportNodes;
  1010.       ExportTickFile;
  1011.       ExportFileForward;
  1012.       ExportNodelistTrans;
  1013.       ExportScheduleFile;
  1014.       ExportOkFileFile;
  1015.       ExportAreaFile;
  1016.       ExportNodeListSegmentFile;
  1017.       ExportMultiListSegments;
  1018.     end;
  1019.     Addlog('+','Configuration exported');
  1020.     OutFile.Done;
  1021.     Dispose(MainStrDict, Done);
  1022.     KillWindow(W);
  1023.   END;
  1024.  
  1025. END.
  1026.